|
|  Sultan of Turkey Patience
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Sultan of Turkey"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS   2
  WIDTH   5 * CW + 2 * COW
  HEIGHT  4 * CH
  ZeroToWin 104 - CARDSIN$2

| Ace Foundation

  FOUNDATION
    X 2 * CW + COW
    Y 0
    DEAL 1,1
    DealCard h1
    MAX 12
    FLAGS RotateJoin
    ID 2
  END

| Sultan

  FOUNDATION
    X 2 * CW + COW
    Y CH
    DEAL 1,1
    DealCard h13
    MAX 0
    FLAGS RotateJoin
    ID 2
  END

| Kings Foundations

  FOUNDATION
    X 2 * CW + COW
    Y 2 * CH
    DEAL 1,1
    DealCard h13
    MAX 13
    FLAGS RotateJoin
    ID 2
  END

  FOR stack = 0 TO 2
    FOUNDATION
      X CW + COW
      Y stack * CH
      DEAL 1,1
      DealCard x13
      MAX 13
      FLAGS RotateJoin
      ID 2
    END
  END

  FOR stack = 0 TO 2
    FOUNDATION
      X 3 * CW + COW
      Y stack * CH
      DEAL 1,1
      DealCard x13
      MAX 13
      FLAGS RotateJoin
      ID 2
    END
  END

| Left cells

  FOR pack = 0 TO 3
    STACK
      X 0
      Y pack * CH
      MAX 1
      FIRST 1,13
      DEAL 1, 1
      FLAGS ClickFly PaintLast
    END
  END

| right stacks

  FOR pack = 0 TO 3
    STACK
      X 4 * CW + 2 * COW
      Y pack * CH
      MAX 1
      FIRST 1,13
      DEAL 1, 1
      FLAGS ClickFly PaintLast
    END
  END

| Stock

  STACK
    X CW + COW + CW / 2
    Y 3 * CH
    DEAL 86
    DEALTO 1,1
    TakeFrom 1,2
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

  STACK
    X 2 * CW + COW + CW / 2
    Y 3 * CH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast ClickFly
    ID 1
  END

END
